home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / PRINTDOC.BAS < prev    next >
BASIC Source File  |  1988-10-25  |  739b  |  21 lines
  1. '   Note: Simply run this routine using the QuickBASIC editor without any
  2. '   library.
  3. '
  4.     COLOR 15, 0: CLS
  5.     PRINT "The QuickBASIC Utility Set Documentation file is formatted to be printed on an"
  6.     PRINT "Epson(tm) command compatable printer. You may experience problems if your"
  7.     PRINT "printer will not handle Epson(tm) commands."
  8.     PRINT
  9. PrintLoop:
  10.     PRINT "Print the QuickBASIC Utility Set Documentation file? [Y/N] :";
  11.     LOCATE , , 1
  12.     DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": PRINT A$
  13.     IF A$ = "Y" THEN
  14.         COLOR 31: CLS : PRINT "Printing......"
  15.         SHELL "TYPE QBUTIL.PRN > LPT1:"
  16.         COLOR 15: CLS : END
  17.     END IF
  18.     IF A$ <> "N" THEN BEEP: GOTO PrintLoop
  19.     CLS : END
  20.  
  21.